home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / Scrap.p < prev    next >
Text File  |  1995-09-12  |  2KB  |  81 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 9:27:42 PM }
  2. {
  3.      File:        Scrap.p
  4.  
  5.      Contains:    Scrap Manager Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT Scrap;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __SCRAP__}
  26. {$SETC __SCRAP__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. TYPE
  36.     ScrapStuff = RECORD
  37.         scrapSize:                LONGINT;
  38.         scrapHandle:            Handle;
  39.         scrapCount:                INTEGER;
  40.         scrapState:                INTEGER;
  41.         scrapName:                StringPtr;
  42.     END;
  43.  
  44.     PScrapStuff = ^ScrapStuff;
  45.     ScrapStuffPtr = ^ScrapStuff;
  46.  
  47.  
  48. FUNCTION InfoScrap: ScrapStuffPtr;
  49.     {$IFC NOT GENERATINGCFM}
  50.     INLINE $A9F9;
  51.     {$ENDC}
  52. FUNCTION UnloadScrap: LONGINT;
  53.     {$IFC NOT GENERATINGCFM}
  54.     INLINE $A9FA;
  55.     {$ENDC}
  56. FUNCTION LoadScrap: LONGINT;
  57.     {$IFC NOT GENERATINGCFM}
  58.     INLINE $A9FB;
  59.     {$ENDC}
  60. FUNCTION GetScrap(hDest: Handle; theType: ResType; VAR offset: LONGINT): LONGINT;
  61.     {$IFC NOT GENERATINGCFM}
  62.     INLINE $A9FD;
  63.     {$ENDC}
  64. FUNCTION ZeroScrap: LONGINT;
  65.     {$IFC NOT GENERATINGCFM}
  66.     INLINE $A9FC;
  67.     {$ENDC}
  68. FUNCTION PutScrap(length: LONGINT; theType: ResType; source: UNIV Ptr): LONGINT;
  69.     {$IFC NOT GENERATINGCFM}
  70.     INLINE $A9FE;
  71.     {$ENDC}
  72.  
  73. { $ALIGN RESET}
  74. { $POP}
  75.  
  76. {$ENDC} {__SCRAP__}
  77.  
  78.  IMPLEMENTATION
  79.  END.
  80.  
  81.